function mod_out=BPSK_t(mod_in)
for i=1:length(mod_in)
if mod_in(i)==0
mod_out(i)=-1;
else
mod_out(i)=1;
end
end